define one1:integer;
define L:integer;
define I:byte;
define J:byte;
define W:word[3];
define K:char[2];
begin

 for One1=100 to 1000 do
  begin
   Prints("Введите I: ")
   L=Con
   Prints(""L)
   PrintI(L)
   Prints(""L)
  end
 I=0

 while I<5 do
  begin
   PrintW(I)
   I=I+1
  end
 PrintW(63999)
 One1=1
 if One1<>1 then PrintS("Equal"L)
           else PrintS("Not Equal"l)

 One1=0-25353
 PrintI(One1)
 PrintS(""L)
{ PrintS("I'll be back"L);  }
 W[1]=63999
 PrintW(10)
 W[1]=12
 W[2]=23
 J=2
 I=23
 k[1]="t"
 k[2]="G"
 One1=W[j]+W[1]+1*(10+(((12/6))))-I
 PrintI(One1)
 One1=0-25353
end.

